home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mac Mania 6
/
MacMania 6.toast
/
/
Tools&Utilities
/
EnterAct Stuff
/
Drag_on Modules
/
hAWK example progs
/
$Split_Test
< prev
next >
Wrap
Text File
|
1994-01-26
|
890b
|
46 lines
#$Split_Test : what does it do with oddball cases?
BEGIN {
a = "\n\n\n"
print "n = split(\"\\n\\n\\n\", arr, \"\\n\")"
n = split(a, arr, "\n")
print n
for (i = 1; i <= n; ++i)
print arr[i]
a = "\nabc"
print "n = split(\"\\nabc\", arr, \"\\n\")"
n = split(a, arr, "\n")
print n
for (i = 1; i <= n; ++i)
print arr[i]
a = "\n\nabc"
print "n = split(\"\\n\\nabc\", arr, \"\\n\")"
n = split(a, arr, "\n")
print n
for (i = 1; i <= n; ++i)
print arr[i]
a = "a\n\nbc"
print "n = split(\"a\\n\\nbc\", arr, \"\\n\")"
n = split(a, arr, "\n")
print n
for (i = 1; i <= n; ++i)
print arr[i]
a = "abc\n"
print "n = split(\"abc\\n\", arr, \"\\n\")"
n = split(a, arr, "\n")
print n
for (i = 1; i <= n; ++i)
print arr[i]
a = "abc\n\n"
print "n = split(\"abc\\n\\n\", arr, \"\\n\")"
n = split(a, arr, "\n")
print n
for (i = 1; i <= n; ++i)
print arr[i]
}